﻿'********************************************************************************
'*
'*      切断　フォーム
'*
'*      File Name : FrmUserLogin.vb
'*      Title     : ユーザ登録画面
'*      機能    　：ユーザNo.の登録
'*
'********************************************************************************
'----------------------------------<<修正履歴>>----------------------------------
'ﾊﾞｰｼﾞｮﾝ   日付       作業者        ｺﾒﾝﾄ
'--------- ---------- ------------ -----------------------------------------------
' V1.0.0   2019/10/01 苗剣峰      新規作成
'********************************************************************************

Public Class FrmUserLogin
    Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
        Dim loginUser As New clsLoginUser
        Dim EQUIP As String

        If txtUser.Text.Trim = "" Then

            MsgBox(getMsgStr("MSG00002", lblUser.Text))
            txtUser.Focus()
            Exit Sub
        End If

        '設備Noをiniファイルから取得
        EQUIP = GetIniFile("EQUIP", "EquipID", "", g_szInitFileName)
        'スキャンしたUserNoをDBにInsert or Update
        loginUser.insUser(EQUIP, txtUser.Text)
        MsgBox(getMsgStr("MSG00047"))
        Me.Close()
    End Sub
End Class